← Index
NYTProf Performance Profile   
For starman worker -M FindBin --max-requests 50 --workers 2 --user=kohadev-koha --group kohadev-koha --pid /var/run/koha/kohadev/plack.pid --daemonize --access-log /var/log/koha/kohadev/plack.log --error-log /var/log/koha/kohadev/plack-error.log -E deployment --socket /var/run/koha/kohadev/plack.sock /etc/koha/sites/kohadev/plack.psgi
  Run on Fri Jan 8 13:01:18 2016
Reported on Fri Jan 8 13:01:36 2016

Filename(eval 1107)[/usr/share/perl5/Sub/Quote.pm:5]
StatementsExecuted 45 statements in 303µs
Eval Invoked At/usr/share/perl5/Sub/Quote.pm line 5
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
52245µs428µsDBIx::Class::Storage::BlockRunner::::_set_failed_attempt_countDBIx::Class::Storage::BlockRunner::_set_failed_attempt_count
11110µs18µsSub::Quote::::BEGIN@4.2969 Sub::Quote::BEGIN@4.2969
1116µs6µsMethod::Generate::Accessor::::BEGIN@10.2970 Method::Generate::Accessor::BEGIN@10.2970
1116µs6µsDBIx::Class::Storage::BlockRunner::::BEGIN@21DBIx::Class::Storage::BlockRunner::BEGIN@21
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1{
221µs my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
31300ns my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
4280µs226µs
# spent 18µs (10+8) within Sub::Quote::BEGIN@4.2969 which was called: # once (10µs+8µs) by Sub::Quote::_clean_eval at line 4
no warnings 'closure';
# spent 18µs making 1 call to Sub::Quote::BEGIN@4.2969 # spent 8µs making 1 call to warnings::unimport
5
# spent 428µs (45+382) within DBIx::Class::Storage::BlockRunner::_set_failed_attempt_count which was called 5 times, avg 86µs/call: # 4 times (32µs+381µs) by DBIx::Class::Storage::BlockRunner::run at line 108 of DBIx/Class/Storage/BlockRunner.pm, avg 103µs/call # once (13µs+1µs) by DBIx::Class::Storage::BlockRunner::run at line 56 of Sub/Defer.pm
sub DBIx::Class::Storage::BlockRunner::_set_failed_attempt_count {
6 $_QUOTED if 0;
74400ns $_UNQUOTED if 0;
8# BEGIN quote_sub PRELUDE
9package Method::Generate::Accessor;
10
# spent 6µs within Method::Generate::Accessor::BEGIN@10.2970 which was called: # once (6µs+0s) by Sub::Quote::_clean_eval at line 15
BEGIN {
111900ns $^H = "1762";
121500ns ${^WARNING_BITS} = "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377";
1315µs %^H = (
14 );
15169µs16µs}
# spent 6µs making 1 call to Method::Generate::Accessor::BEGIN@10.2970
16# END quote_sub PRELUDE
17812µsdo { my $self = shift;
1846µs $self->{"failed_attempt_count"} = $_[0];
1985µs do { local @_ = ($self, $_[0]); # BEGIN quote_sub PRELUDE
20package DBIx::Class::Storage::BlockRunner;
21
# spent 6µs within DBIx::Class::Storage::BlockRunner::BEGIN@21 which was called: # once (6µs+0s) by Sub::Quote::_clean_eval at line 26
BEGIN {
221800ns $^H = "133090";
231300ns ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUU";
2416µs %^H = (
25 );
26188µs16µs}
# spent 6µs making 1 call to DBIx::Class::Storage::BlockRunner::BEGIN@21
27# END quote_sub PRELUDE
28
29422µs11µs $_[0]->throw_exception( sprintf (
# spent 1µs making 1 call to DBIx::Class::Storage::BlockRunner::max_attempts
30 'Reached max_attempts amount of %d, latest exception: %s',
31 $_[0]->max_attempts, $_[0]->last_exception
32 )) if $_[0]->max_attempts <= ($_[1]||0);
33 };
344900ns $_[0];
35 } }
3611µs $$_UNQUOTED = \&DBIx::Class::Storage::BlockRunner::_set_failed_attempt_count
37}
3813µs1;
39
40;